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NOTICE 
IF VOU HAVE THE EXPANSION INTERFACE AND VOU ONLV 
GET ONE SET OF CHIPS VOU NILL HAVE TO INSTALL 

THE CHIPS IN Z9 THROUGH Z16. 

IF VOU HAVE LEVEL II AND 16K RAM IN VOUR KEVBOARD 
UNIT VOU WILL NOT HAVE TO SET ANV JUMPERS WHEN 

VOU INSTALL THE CHIPS IN VOUR INTERFACE 



TRS-80 PROGRAMMING CONTEST 
WIN $506 00-SENO S. fl. S E. TO: P C -G> P BOX 621; FENTON, MO 63026 



ToiTRS - 80 Users Group 
Fromi Janes B. Penny 

1537 Raaiada 

Houston, Tx. 77062 



I THOUGHT YOU MIGHT LIKE AN IMPROVED- VERSION OF YOUR "ANGLO TO METRIC" 
PROGRAM. TO ME, IMPROVED MEANS SHORTER. I DON'T LIKE TO TYPE. NOTICE 
THAT THE DATA STATEMENTS ARE PEALED OUT THREE AT A TIME. DON'T FORGET 
THE TRAILING COMMA ON LINE 20. 

5 CLSiP.T.(20);"ANGLO TO METRIC"! P. 

10 F.N=1 TO 17«READ A(n),A$.B$ 

20P.N}" "»A$i M TO "fB$, 

30 NEXT Ni RESTORE 

90 P." END PROGRJWtP. 

100 IN. "WHICH CONVERSION DO YOU NEED"|NtIF JC=0E. 

110 IF N>17 GOTO 100 

120 F.Q=i TO NjREAD A(N) , A$,B$iNEXT Q 

130 RESTORE 

140 IN. "VALUE TO BE CONVERTED": I 

150 R=I*A(N)tIF N=17 R=(l-32)*5/9 

160P.I|" " f A$r ="|R|" M }B$ 

170 IN. "PRESS ENTER TO GO AG AIN" j B$ i G . 5 

200 D. 2. 54, INCHES, CENTIMETERS, 30. 48, FEET, CENTIMETERS 

210 D. .3048 t FEET,METERS, .9144, YARDS, METERS 

220 D.l. 609 ,MILES, KILOMETERS, 4. 929, TSP. , CUBIC CM. 

230 D. 14. 788, TBSP, CUBIC CM. , .2366, CUPS, LITERS 

2^0 D. .4732 .PINTS, LITERS, .9463, QUARTS, LITERS 

.250 D.3.785»GALLONS,LITERS,35.24,tBUSHELS l LITERS 

260 D.8.809,PECKS,LITERS,28.3495,OUNCES,GR)aiS 

270 D..4536rWWDS,KILOGR)WS, 907. 2, TONS, KILOGRAMS 

280 D.. 6214, DEGREES F. , DEGREES C. 
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INTRODUCING PRINTOUT 

:.ct PRINTOUT RUN OR LIST VOW T RS-*ft PROGRAMS BV SIlfLV NAILING VOUR CASSETTE to ME U€RE 
T"EV Mill BE PRINTED AND *ETijRNED TO YOU POTPftMS REQUIRING MORE THAN 1«. CANNOT BE RUN 
AT THIS THf NO COPIES OF ANY KIND MILL BE KEPT. DISCS CAN BE HANDLED AFTER DRIVES 
ORDERED IN FEBRUARY HAVE BEEN SHIPPED PLEASE INCLUDE INFORMATION NITH VOUR ORDER AS 
INDICATED BELOW 

DIRECTIONS POR 0ROGW«S 10 BE LISTED 

1 PLACE PROGRAMS BACK TO BACK ON SIDE ONE OF TAPE. 2. NOTE ONE LEVEL-! OP LEVEL-II 
3. HON NHNV PROGRAMS APE TO BE LISTED? 4. LEVEL-II USERS, PLEASE LIMT PROGRAM LINES 
TO 8B CHRS. 6. LEVEL- USERS, DO YOU WANT ABBREVIATIONS REMOVED PROM YOUR PROGRAM, 
'LEVEL-II FORMAT)? 5. DO YOU WANT CONDENSED PRINTING SUCH AS THIS TO LIMIT LINE WIDTH 

DIRECTIONS C 0R PROGRAMS TO BE RUN 

i. PLACE PROGRAMS BACK TO BACK ON SIDE 2 OF TAPE 2 IF INPUT! DA™ IS REWIRED.- "ACE 
IT DIRECTLY BEHIND w>OGRAM IT BELONGS WITH WHICH PROGRAMS HAVE HffWI WTO? 3 IF 
INPUT DATA IS REWIRED- PLEASE KEEP TO A MINIMUM AND INCLUDE RESPONSES ON ORDER, WHICH 
PROGRAMS REWIRE INPUT DATA"* 4 TRS-99 CRT GRAPHICS AND 'PRINT AT' STATEMENTS HILL NOT 
APPEHR ON PRINTED OUTPUT 5. NOTE ONE LEVEL-! OR LEVEL-!!. 

CHARGES- 1 CENT PER LINE BASED ON TOTAL JOB, INCLUDING ANY NUMBER OF PROGRAMS MINIMI" 
CHARGE OF 14 88 FOR PROGRAM LISTING OR $5 88 I F SAMPLE RUNS ARE INCLUDED 
A NEAR APPROXIMATION OF TOTAL LINES WILL BE SUFFICIENT FOR PAYMENT 

SEND CASSETTE AND CHECK TO: PRINTOUT, p BOX 8?46- F 0R T WORTH.- TEXAS- 7 fii2 



FOR SALE i TRS-80 kK. RAM, LEVEL I BASIC. I've had it only 6 months. Need 
to sale. Why wait 3 months. With users manual. $600 I'll pay shipping. 
PRIMUS E. JACKSON, JR., ^97-l8th ST. SO., ST. PETERSBURG, FL 33712 
Phonei (813) 898-1711 



TRS-80 COMPATIBLE PERIPHERALS 

* CENTRONICS 779 LINE PRINTER (SAME ONE THAT RADIO SHACK USES)-$ 999. 

* 779 WITH TRACTOR FEED OPTION (HIGHLY RECOMMENDED) - $1,179. 

* PI MICROPRINTER (A LOW COST ALTERNATIVE TO THE IMPACTS) - $ 399. 

All the'above printers are supplied with a special cable that allows 
a direct connection to the Centronics parallel line printer port on 
your Expansion Interface unit. 

The printers are warranted for 90 days. If your unit fails during 
this period, ship 1t back to us (U.P.S. charges are usually under $10) 
and we will immediately send out a replacement printer. 

After the warranty period call Centronics nationwide field service 
for repair at 800-258-1952. They usually respond to a service call 
within four hours. 

Also available are Shugart SA400 mini -disks complete with power 
supply and case $ 399. 

APPARAT, INCORPORATED 
BOX 10324 
DENVER, CO. 80210 

303 758-7275 

TRS SOFTWARE ALSO AVAILABLE 
SEND FOR FREE CATALOG 






TRS-80 USERS GROUP 

7554 SOUTHGATE ROAD 

FAYETTE VILLE, NORTH CAROLINA 

28304 

DEAR GORDON, 

FOR THOSE PERSONS WHICH NOW HAVE LEVEL II BASIC, I 
HAVE FOUND THAT THE FOLLOWING ERROR ROUTINE TO BE VERY 
USEFUL IN ERROR TRAPPING 

99 ON ERROR GOTO 65000 



65000 PRINT M ERROR IN LINE t M ;ERL; "CODE C";ERR/2+l; ")" 

65001 PRINT"TO CONTINUE WITH NEXT LINE PUSH A KEY" 

65002 C$=INKEY$:IFC$=" M THEN 65002 ELSE RESUME NEXT 

IT IS NOT NECESSARY FOR THE 'ON ERROR' LINE TO BE AT 
#99, BUT SINCE I START ALL MY PROGRAMS AT 1100 THE 
LINE 99 WAS BEST. BUT THE ON ERROR LINE SHOULD BE 
EXECUTED BEFORE THE PROGRAM STARTS SO THAT ANY ERROR 
IN THE PROGRAM WILL BE SPOTTED. 

WHAT THE USER WILL GET IS A DISPLAY SHOWING THE ERROR 
CODE, AND THE LINE WHERE THE ERROR OCCURED. AT THAT 
POINT THE USER CAN BREAK THE PROGRAM AND EDIT OR PUSH 
ANY KEY TO CONTINUE THE PROGRAM WITHOUT CORRECTING THE 
ERROR AT THE NEXT LINE. 

ONE ITEM WHICH WASN'T MADE TO CLEAR BY THE LEVEL II 
HANDBOOK IS THE CLEAR STATEMENT. WHEN EXECUTED IN THE 
PROGRAM IT WILL ALSO CLEAR ANY DEFINE STATEMENTS AND 
ANY DIMENSION STATEMENTS. THEREFORE I STRONGLY URGE 
THAT USERS USE THE CLEAR #### STATEMENT IF NEEDED AS 
THE FIRST STATEMENT OF THE FIRST LINE OF THEIR PROGRAMS 
TO PREVENT THE TROUBLE WHICH I HAD AT FIRST. 



SINCMELY, J 

C. D. ROBERTSON 



Would like to TBAJ programs. Have about 45 games, graphics, ect. Send 
yours on cassette. Vill record all 1 can on your cassette and return. 
Level 1 only, 1 have level 2 on order. 
JIM CLAYTON, 3520 SS VINEYARD RD. , MILWAUKIE, OREGON 97222 

3 REM MEM 4388 

4 CLS: PRINT: PRINT: PRINT 

5 PRINT"SABINE, AND NORRIS-EYRING EQUATIONS WITH MEAN PATH ETC. " 
18 PRINT-LINRS VYTUVIS 85-29 86TH ST. MOODHRVEN ,H. V. , 11421" 



12 F0RN-iT03888:NEXTN:CLS | FORN=1TO1880 : NEXTN 

15 PRINT: PRINT: PRINT .PRINT PRINT PRINT" INSERT REQUESTED INFORMATION": 

16 CLS : PRINT: PRINT :INPUT"WHAT IS VOUR NAME"; B*: CLS: PRINT. PRINT 

17 PRINT" IT IS A PLEASURE TO MEET VOU ";B*:F0RN»lT0i28e: NEXTN 
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18 PRINT-I HOPE I HILL BE ABLE TO SERVE VOU HELL ! " : F0RN*1T02888 : NEXTN 

19 PRINT'ENOUGH HITH TRIVIALITIES, LETS GET DOWN TO BUISNESS!" 
26 FORN=1T02B88: NEXTN: CLS 

22 INPUT"HHflT IS THE ROOM TENPERTURE IN DEGREES FARENHEIGHT";D 

25 INPUT "HHAT IS THE LENGTH OF THE ROOM IN FEET",M 

38 INPUT'HHHT IS THE HIOTH OF THE ROOH IN FEET";N 

35 IMPUT"HHflT IS THE HEIGHT OF THE ROOM IN FEET u ;0 

45 V»H*N*0: S*<2*H*N>+<2*«*0>+<2*0*1> 

58 INPUT-HURT IS THE CEILING COEFFICIENT"; K 

55 INPUT"HHAT IS THE FLOOR COEFFICIEHT";P 

68 INPUT"HHflT If THE BflCKHBLL COEFFICIENT"; R 

65 INPUT-HHflT 15 THE FRONTHALL COEFICIENT"; U 

78 INPUT"UHflT I > THE RIGHT SIDE HfiLL COEFFICIENT"; V 

75 INPUT"NHAT IS THE LEFT SIDE HflLL COEFFICIENT"; Z 

76 INPUT"fiT HHAT FREQUENCV ARE THESE COEFFICIENTS VALID"; J 
88 Q=<(N*M**<)+(N*M*P)+(N*0*R)+(N*0*H)+<M*O*V)+(M*0*Z))/S 
85 CLS 

188 T=<8. 949*V)/(S*«) 

125 X«(l-Q) 

138 Q0SUB38198 

135 PRINTW;", HERE ARE THE SPECIFICATIONS VOU HANTED:" 

158 U-(. B49*V>/<-S*L> 

151 PRINT" " 

152 F»<4*VVS:G-a*<ie88+<l. l*<D-32)))>/T:H-<U*(1888+<l. l*<D-32)>))/F 

153 I^/<1888+(ll*<D-32))> 

154 PRINT-REVERBERATION TIMES AT"; J; "HERTZ. " 

155 PRINT" SABINE RT-68 «"; T; "SECONDS" 
168 PRINT"NORRIS-EVRING RT-68 «";U; "SECONDS" 

161 PRINT" " 

165 PRINT"AVERAGE ROOM ABSORPTION COEFFICIENT"; ft "AT"; J; "HERTZ. " 

167 PRINT'MEAN FREE PATH:";F; "FEET" 

168 PRINT- " 

178 PRINT-NUMBER OF REVERBERATIONS BEFORE TOTAL DECAY OF ONE PULSE:" 

175 PRINT- SABINE :';G 
188 PRINT-NORRIS-EVRING : a ;H 

181 PRINT- " 

185 PRINT-INITIAL TIME-DELAV-GAP:"; I; "SECONDS" 

198 INPUT" TO CONTINUE, PRESS ENTER ";A* 

195 CLS: PRINT: PRINT: PRINT-ROOM PARAMETERS:" 

196 PRINT- 

288 PRINT-ROOM VOLUME:-; V; "CUBIC FEET" 

281 PRINT-TOTAL ROOH SURFACE AREA: ";S; "SQUARE FEET" 

286 PRINT" " 

218 PRINT :PRINT"NALL ABSORPTION COEFFICIENTS AT"; J; "HERTZ:" 

215 PRINT :PRINT"CEILING", "FLOOR", "FRONTHALL", "BACKUALL" 

228 PRINTK,P,M,R 

225 PRINT'RIGHTHALL", "LEFTHALL" 

238 PRINTVi Z 

231 PRINT" " 



235 PRINTB*; ", IF VOU UANT TO TRV OTHER COEFFICIENTS AT DIFFERENT" 

236 PRINT-FREQUENCIES ENTER A 1 TO SEE THE T-68 SPECS AGAIN ENTER A 2. 

237 INPUT" -;V 
248 IFV>1THEN58 
245 Q0T085 
38185 G0T038185 

38198 E^:IFX<eTHENPRINT-LOG UNDEFINED AT-;X:STOP 

38195, A-i:B«2:C- 5 

38288 *FX>ATHENX-C*X : E=E+fl : G0T038288 

38285 IFX<CTHENX«8*X:E*E-A:G0T038285 

38218 X-<X-. 787187>AX+. 7e7187>:L»X*X 

38215 L««<. 598979*4.+. 961471)«L+i 88539)*X*E- 5)*. 693147 

38228 IF ABS<LKlE-6THENL=e 

38225 X-L*. 4342945: RETURN 



I thought some people night like to see a new use for the ol' TRS-80, 
kind of a different program. How would you like to sec your house or 
apartment floor plan on your own screen? What good Is that, you may ask. 
Tou can move furniture around to see what It might look like, designers 
could exchange Ideas without sending bulky papers through the mall, im- 
press your friends, etc. I have enclosed a copy of a program I did for 
my house to show you how easy It is and to maybe give some other people 
some ideas on how they could do theirs. 

5 REM MEM 3217 

10 CLS:GOSUB1B8:GOSUB808:INPUTB$ 

15 GOSUB608:GOSUB888:INPUTB$ 

18 Cl.S : G0SUB188 : GOSUB1088 : G0SUB888 i*- 3 * 

28 INPUTB$:G0T018 ~?~s 

190 F0R»*5T073:SET<L3):NEXTI £§ = 

118 FOR »21T0125:SET<L 15): NEXTI £| Wg 

115 F0RI-75T083 : RESETU, 15) : NEXTI »- £ o - 

128 F0RI=95T0125:SETa,26):SET<I,32>:NEXTI J zu)l 

138 F0RI«2T05:SET<L 29): NEXTI 

148 F0RI»17T02i:SET<L 29): NEXTI 

145 F0RI«22T046STEP4:SET<L 29) : SET < 1+1,29) NEXTI 

158 F0RI»46TO51:SET<L 29): NEXTI 

155 F0RI«54T078STEP4:SET< 1, 29) :SET< 1+1,29): NEXTI 

168 F0RI=78T085:SET<I,29):NEXTI | B * £ 

178 F0RI«184T0i25:SET<I, 29): NEXTI ^ fc 3 £ 

188 F0RI»52T065STEP2:SET<I,38>:NEXTI 3 P * fc 

198 F0RI=77T087:SET<I, 38): NEXTI S>Sh 

288 SET<94, 38) : SET<95, 38) § g 1 ~ 

218 F0RI-2T0125:SET<I, 46): NEXTI £ 

388 F0RI*29T046:SET<2,I):NEXTI 3| *H 

328 F0RI»15T024 : SET (29. 1 ) : NEXTI ft •- 

330 SE7CZ©, 2S> § * m Jj 

340 F0RI*38T045:SET(51,I):NEXTI £8° 

350 FORI«4TO9:SET<60, I):NEXTI £**£ 

368 SET<60,13):SET<60,14>:SET<73,4) £ g > 

370 F0RI-8T014:SET<73,I>:NEXTI l! S * ft 

388 SET (85, 16) SET (85, 17) 

385 F0RI«19T026STEP2:SET<85, 1):NEXTI 

398 F0RI=26T031:SET<85, I) NEXTI 

400 F0RI=36T045:SET<85, I):NEXTI 

418 F0RI«27T033:SET<96,I):NEXTI 

428 F0RI»37T045.SEK96,I>:NEXTI 

438 F0RI=27T031:SET<183, I): NEXTI 

440 F0RI»16T045:SET<125, I):NEXTI 

450 RETURN 

600 PRINTtiiS, "t "J :PRINTtl78, "t[C"; :PRINTt243, "N"; 

610 PRINTti48, "CflRPORT"; 

620 PRINT0159, "HRSH"i :PRINT0223, "ROOM"; 

630 PRINT0499, "FLORIDA"; :PRINT0473, "ROOM"; 

648 PBTMTM33. -MRSTEP"-- PRINT0*96, "BEDROOM"; 

650 PRINT0713, "LIVING"; :PRINTt778, "ROOM"; 

668 PRINTt671# "DINING"; :PRINT0736, "ROOM"; 

670 PRINT0927, "KITCHEN"; 

680 PRINT8821, "GUEST"; :PRINT0884, "BEDROOM"; 

690 PRINT0875, "BRTH"; :PRINT0939, "ROOM"; 

788 RETURN 

888 PRINT08, "THE STEVENER HOUSE 3935 HUNTINGTON ST NE ST PETE, FL "; 

810 PRINT"33703 h ; :RETURN 

1088 FORI«87TO100:SET(L16):SET<M7):NEXTI 

1818 F0RI»187T0124:F0RJ»18T023:SET<LJ):NEXTJ:NEXTI 

1828 F0RI=96T0183:SET<1,24):SET<I,25):NEXTI 

1838 SET<123,17):SET<124,17>:SET<123.24):SET<124,24> _ 

3 
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1846 FORI=54T072:SET(Mb) SET <I. 17) NEXTI 

1850 F0RI=46T052 : F0RJ=18TQ2j: . SETU, J) NEXT J : NEXTI 

1060 FORI=47TO50:SET(I,lb) SETU, 17) : NEXT I 

1070 FORI=24TO27:FORJ=20TG22 : SETU # J): NEXTJ NEXTI 

1080 F0ftl=45T052 SET (1,27 > SET c.I, 23) .NEXTI 

1085 J=27 :FORI=78T081.SET(L J> .SETU-H, J) : J=J-i:NEXTl 

1090 FORI=17TO25:SET(L30).SET<L31):NEXTI 

1100 F0RI=3T09 . FGRJ=34TG39 SET< I, J ) . NEXT J : NEXT I 

1110 F0RI=12T014 FQRJ=i4T03y SET( L J) . NEXTJ NEXTI 

1120 FORI=4TO8:SET(L40) SET(L 41) NEXTI 

1130 F0RI^47T051:F0RJ=38T041:SET<I. J). NEXTJ NEXTI 

U40 FORI 15T021.F0RJ=42T044.SETCI,J) SET( 1+10, J> NEXTJ NEXTI 

1150 FOR i 39T043:SET(57, I) NEXTI 

1160 FOR: =57T079:SET(L 43) NEXTI SETC79, 42) 

1180 FOf -=78T084:FORJ=39T041 SETU, J) NEXTJ NEXTI 

1200 RE" URN 

The programs T mentioned In the May newsletter I now have in Level 
II also. Additionally, I am offering the following programs (all 4K) : 

M30N LANDER - No longer may you sit and wonder "What would happen if..?" 
You now must input thrust and lateral corrections on a 'real time' basis. 
Demands your full attention. (Level II only, $4.50). Watch its descent. 
TARGET - 2 players Independently aim and fire at 3 aircraft flying over- 
head, each valued differently for scorekeeping. (Level II only, $4.00). 

The following programs are available in Level I or Level II: 
DOGFIGHT - 2 players each command 1 ship, moving and firing at each other. 
You may not fire through the obstacles but you may bounce shots off the 
walls (you watch the shot's "trace"). Interesting and easy to play. $7. 50 
DOGF1CHT II - Same as above, but you play against the computer. He always 
has the correct direct angle but cannot bounce off a wall (nor shoot thru 
an obstacle.) Very challenging and accurate. $7.50. (Both for $11.00) 
GRAPHER - Input your own title, starting value for x, Increment, and the 
y values as they are called for, and this program will draw a bar graph 
or a dot graph for you. Less than 1000 bytes, with scaling. $5.00. 
NUMBERS - Play the numbers game with a friend or the computer. Whoever 
picks the last object or number from the pile loses. You can beat the 
computer (secret enclosed). $3.00. 

Please include $1.00 for cassette, postage, and handling. 

William M. Stevener Sincerely, 

3935 Huntington St N.E. J* \ 4, ~f Hjf 

St P.t„.bur,. PL 33703 ^t^PUWZS^ 

Willlaa M. Stevener 

PASSBOOK PROGRAM to compute daily interest on either an actual days 
basis or on a conventional 30-day month basis. It actually computes 
Interest dally to avoid the problem of the limited accuracy of 
1CVEL I which cannot calculate 1.0001 ^5833 to various powers 
accurtely. This is the factor for 5.25JC on 360-day basis. 

2 REM PASSBOOK 

4 REM BYTES LEFT 1650 

6 REM 7/18/78 

10 REM C. M. EVANS, (682) 933-1616 

12 REM 9886 AMBER TRAIL, SUN CITV, AZ 85351 

18 CLS 

20 PRINTTAB<15); "DAILV INTEREST PASSBOOK PROGRAM. 

21 PRINT 

22 PRINT" THIS PROGRAM CALCULATES ACCUMULATED DAILV INTEREST 
24 PRINT-USING ACTUAL DAYS OR A CONVENTIONAL 30-DAY MONTH. 
26 PRINT"ENTER DATE <M, D) FOR EACH ENTRV. ENTER THE BALANCE AT 



2? PR I NT "THE START OF THE PERIOD. T:itj< lNTER EmCH DEPOSIT AMOUNT (♦) 

28 FRlNT'ftNO EHCn ••; i '; Hi;* ftwRL RrtOUN- <■-) m7 Tm£ END OF :•••£ FERiOD 

30 PRiNT" ENTER H 0' iViGUNT i.N ORDER TO UslPUTE INTEREST ju THE 

32 PRINT "FlNfiL DrtTE. THE PROGRAM PRINTS DAV #, THE DETAIlS 

34 PRINT -SHOWN If* THE PASSBOOK, AND THE ACCUMULATED INTEREST. 

38 PRINT 

40 INPOT ,- H»~ ENTER «&t£N READY -,at 

d& CLS 

a3 Rtf! DElETE ulfC 96 IF RATE 15 5. 25/. 

3& 6OTO100 

9? 8=5. 25f 36030 

99 GOTOiiO 

180 INPUT"WHAT IS ANNUAL INTEREST '/. ; ■; R : 0=R, 36000 
105 INPUT'ENTER 1 IF ACTUAL DAYS ilETHGD, 2 IF _.o-DAY ,lOrtlH"*G 
166 IFG>2GOTO105 
110 I«0 
126 INPIT'UHAT IS STARTING DATE AND BALANCE <M, D, 6>"J M, D, B 

122 lF<h>12)+<D>31)GOTO120 

123 IFG=iPRINT"I5 IT LEAP VEfiR <1=YES, 0-NO)", : INPUTL:GOSUB408 GGT0130 
125 G0SUB174 
130 E=H 
148 PRINT 

150 PRINT" # DATE WITHDRAWAL DEPOSIT BALANCE INTEREST 
155 PRINTH; Mi ", "j D, TABQ3;, B 

158 F-RINTTAB<22>; "MONTH, DAV, AMOUNT; <M. D,A>"; : INPUTM, D,A 
160 IF<M>12>-KD>3i,iGGTG15& 
162 IFG=2G0SUB174 : G0T0285 
166 IFG=1GOSUB400:GOTO2'05 

173 REM *TEST FOR SHORT MONTHS* 

174 C=D 

175 IFCM=2>+iM=4>-»<M=6>+Ul=9>+(M»il)G0T0i85 
180 GOTO20O 
185 IFM=2G0TG187 

100 G0T0195 

187 IFD=28PRINT"IS IT LEAP YEAR a=YES, 0»NO.j", . 1NPUTL: IFL=1RETURN 
198 IFD>27D=31 

200 H=30*i.rt-l>n>: RETURN 

205 F=H 

209 IFE=FG0T0232 ± g i 

218 F0RN=ET0F-1 

220 I»I*I*Q+B*Q 

230 NEXTN 

232' 8=8*A 

233 I«(INT<(I-INT(I>)*100+. 5001>>/100+1NT(I> * 5 it H! 

240 PRINTS M; ", "; C, £• « * ,_ 

250 IFA<0PRINTTA6a3)>A; GOTO270 I * I* £ 

260 PRINTTAB<23); A; k *~ * 

270 PRINTTAB<33); B; £ 5 uj £ 

280 PRINTTRB(43); I fiut|| 

290 E=F:G0T0156 $""| 

400 ONMGOTO401, 402, 403, 404, 405, 406, 40?, 400, 409, 410, 411, 412 jfl * £ F 

401 H=D:G0T0420 3 

402 H=O+31.GOTO420 £ 



■-S- 



c _, 



403 H=D+59+L:GOTG420 81 o ~ * 



404 H=D*90+L:GOTQ420 -i a 

405 H=D+120+L:GOTO420 * | 

406 H=0+151+L: GOT 0420 £ ^ 

407 H=D*181+L:GOTO420 ft ^ 

408 H=D+212+L:GOTG420 u, £ 

409 H=D+243+L : GGT0420 5: * 

410 H=D+273+L : G0T0420 j 5 

411 H=D*3fe4i--_:uGTO420 

412 H=0+334+l : GOT 0420 
420 C*y RETURN 



IS 
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TapeTaih 

FOR YOUR TRS-80 



TM 



TaPeTaLK, a truly unique publication for the 
tirst generation of computer pioneers, is a 
bi-monthly "Magazine" exclusively for the 
TRS-80 system. ALL ON CASSETTE, JUST LOAD I T IN 

We a re de d i c a t e cl To - the premise that you 
deserve the full potential from your TRS-80. 

REGULAR FEATURES INCLUDE: 

THE TAPETALK FORUM ME AND MY 80 

COMPUTES ASST. EDUCATION THE GAME ROOM 

HOME IMPROVEMENT SECTION 

SMALL BUSINESS ADVISOR 

V0CA3. (DEFINITIONS OF COMPUTER JARGON.) 

***************** ************************ ****** 

* * 

* ENTER A PROGRAMMING CONTEST. WIN A SCREEN * 

* PRINTER, EXPANSION INTERFACE. 16K CONVERSION* 

* * 

X KIT, LEVEL II MODIFICATION OR ONE OF MANY % 

X OTHER PRIZES. * 

* + 
*********************************************** 
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A one year subscription is only $30.00 
includes " An Introduction To TAPETALK" 
program cassette. 

The "Introduction" or single issues may 
be purchased at a cost of $7.00 each. 




masic > fun)*) 



PLEASE ENTER MY SUBSCRIPTION TO TaPeTaLK FOR: 



]~]l year U.S. $30.00 \^]z years U.S. S54.00 

Make Chech or Money Order payable to: 
TAPETALK P.O.Box 54014, San Jose, Ca. 95154 

Charge my; LjVisa \~\ Master Charge, code 

Card# Expiration Date 

S i g n a t u r e 

Name (print) 

Address 

C i t y Stat e Z i p 

N ickname 

□ n 



[j]Leve1 I 
P~I 16k QLevel II 

MAIL COUPON OR CALL TODAY (408) 629-2161 



k. _ _ _ i _: _ ____________ — _ __ 



DEAR TRS-80 FOLKS 

RADIO SHACK HAS MADE fl FEW MISTAKES IN THE PAINTER 
INSTRUCTIONS AND IN THE DUAL CASSETTE OPERATIONS 
FIRST— A HEAVY SLIP OF PAPER IN BETWEEN THE RIBBON 
GUIDE AND THE PLATEN WILL AIL' IN LOADING PAPER OP 
FORMS INTO THE PRINTER 

SECOND— YOU MUST TVPE LPPINT" " IN ORDER TO 
SKIP A LINE AN LPPINT BV ITSELF DOES NOTHING. 
THIRD— THE MANUAL SAYS VOU CAN CONTROL LINE SPACING BV 
POKING INTO MEMORY t 16424) A VALUE LESS THAN 66 I CAN'T 
GET ANYTHING LIKE THAT TO WORK ON MINE HAS ANYONE ELSE"' 

FOURTH— THE DUAL CASSETTE OPERATION IS SUPPOSED TO BE 
CONTROLLED BV THE COMMAND CLOAD#N WITH N=THE NUMBER OF 
THE CASSETTE TO BE USED THAT COMMAND DOESN'T WORK' 
CLOADt- N FOLOWED BV A COMMA AND THE NAME OF THE PROGRAM IN 
QUOTATION MARKS DOES WORK 

FIFTH— THE COMMAND CLGAD~'«N DOES NOT WORK EITHER' 
BUT THE COMMAND CLOAD#-N FOLLOWED BV A COMMA THEN THE 
">- AND THE NAME OF THE PROGRAM IN QUOTES IMMEDIATELY 
AFTER IT WITHOUT ANY FURTHER PUNCTUATION 

FINALLY-- BELOW IS A LITTLE PROGRAM 1 USE TO CONTROL THE 
LINE PRINTER FOR NOTES LIKE THIS ONE VOU SHOULD NOTE YOU 
CAN SKIP A LINE BV TYPING IN 2 QUOTES WITH A SPACE BETWEEN 
AND INDENT BV STARTING THE LINE WITH A SINGLE QUOTE AND 
SKIPPING IN TO WHERE VOU WISH TO START 



1.00 CLS fl EAR ©5 

200 INPUT R* LPPINT R* PRINT 
100 PPPINT "FREE SPACE "■ FRE<A*: 
400 PRINT CLEAR GOTO 200 



HFF'E IS A NH"F LITTLE SUBROUTINE FOP R SQUARE ROOT 
FOUND IN DP ENGELS SIMULATIONS SINCE LEVEL II 

MRS R SQP<N:' FUNCTION BUILT-IN THIS IS FOR LEVEL I 
PEOPLE JOHN REVELLE.. 7136 BEL.ITA AVE 
ROHNERT PARK. CA 94928 



?00 REM Q=SOURPP ROOT' R - 

910 0=0 

920 IF R<*0 THEN 970 

930 0=1 

94P1 s=0 

950 Q=-rp/S+S V2 

960 IF RBSC-TR/Q >/Q— 1 •>= 0001 THEN 940 

970 RETURN 



SWISS CHEESE DISPLRY 
LET THE PROGRAM PUN FOR R FEW MINUTES IT DISPLAYS 
R RANDOM PATTERN OF GRAPHICS G FRANK HUMISTON 

f.06 WRVNF AVENUE 
EL CAJON- CA 92021 
1 <?14"> 444-0356 

10 CIS 

20 SFT-'PND' 127"> . PND- 47 > > 

30 RESET < RND < 127 > . RND < 47 • • 

40 GOTO 20 



GREAT SOFTWARE 



for 
your 




MICROCHESS 1.5 by Peter Jennings for 4K Level I and II TRS-80s: In 
Z-80 machine language, easily loaded from cassette using the CLO AD 
command (TBUG is not needed). Uses standard algebraic chess 
notation to describe moves. Checks every move for legality. Handles 
castling and en passant captures. You can play white or black, set up 
and play from special board situations, or even watch the computer 
play against itself! With 3 levels of chess play $19.95 

ARMCHAIR FOOTBALL by Prof. Steven Harter for 4K Level I TRS-80s: 
A two person game with a graphic football field, good for hours of 
varied play. Choose your offense with long and short passes, draw 
plays, quarterback sneaks, quick pitches, sweeps and punts, and try to 
score touchdowns and field goals. Defend with rush, blitz, key man- 
to-man-end pass interception strategies. Cassette also includes 
animated graphic GOLF and TENNIS games. All 3 for $14.95 

STIMULATING SIMULATIONS by Dr. C. William Engel for 8K PETs 
and 4K Level I and II TRS-80s: Ten original simulation games such as 
Diamond Thief, Gone Fishing, Lost Treasure and Business 
Management, ranging in difficulty from elementary to quite complex 
with most suitable for children. Complete with a 64 page illustrated 
book showing how the games are programmed, with flowcharts, 
listings and suggested modifications $14.95 

ORDERS: Check, money order or VISA/Master Charge accepted; 
programs and cassettes guaranteed. Additional programs will be 
announced in our catalog. For your free copy, send a letter giving your 
PET or TRS-80 serial number, memory size, and your most wanted 
software product. 



Commodore 

PET 



Radio Shack 




BRIDGE CHALLENGER by George Duisman for 8K PETs and 16K 
Level II TRS-80s: You and thedummy play four person Contract Bridge 
against the computer. The program will deal hands at random or 
according to your criterion for high card points. You can review tricks, 
swap sides or replay hands when the cards are known. No longer do 
you need four people to play! $14.95 

GRAPHICS PACKAGE for 4K Level I TRS-80s: DOODLER by Les 
Logan lets you quickly draw horizontal, vertical and diagonal lines and 
save the patterns in memory or on cassette for later use. PLOTTER by 
Dr. Peter Maggs creates adjustable bar charts and linear or log scale 
graphs (80 by 50 points on PETs, 1 28 by 48 on TRS-80s) with automatic 
scaling and labeling of the axes — perfect for data analysis. LETTER by 
Frank Kulash displays messages in large block letters from a full 
character set on your screen. All 3 for $14.95 

INTRODUCTORY SPECIAL for 8K PETs and 4K Level I TRS-80s: The 
best versions we could find of four classic computer games. Play 
POKER against the computer, with graphic playing cards on the PET. 
Match wits with your PET or TRS-80 to corner ONE QUEEN on a 
graphic chessboard. Enrich your KINGDOM amid wars, famines, 
earthquakes, assassinations, etc. Test your bravery as a MATADOR in 
a bullring. Nearly 1000 lines of BASIC. All 4 for $12.95 

Personal Software™ 

P.O. Box 136-T8, Cambridge, MA 02138 
VISA/MC telephone orders welcome at (617) 783-0694 
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TO THE TRS-30 USERS GROUP i 
HAVING RECEIVED SOME NEW HARDWARE & SOFTWARE, I THOUGHT I'D LET YOU 
HEAR ABOUT THEM. SO FAR I'VE RECEIVED THE EDITOR/ASSEMBLER PROGRAM, 
LEVEL II, & THE EXFANSION INTERFACE. ALSO I'M AWAITING MY MINI-DISK, 
WHICH SHOULD ARRIVE SOON. TO SUM-UP LEVEL II IN ONE WORDj EXCELLENT ! 

BUT FIRST A DISCOVERY ABOUT LEVEL I, IF WHILE RUNNING A PROGRAM THAT 
HAD SEVERAL NESTED LEVELS OF 'GOSUB's , YOtf DID A 'BREAK' WHILE IT WAS 
IN THAT PART OF THE PROGRAM, CHANCES ARE THAT IF YOU DID A 'RUN' RIGHT 
AFTER THE 'BREAK' IT TOLD YOU 'SORRY'. THE "FIX" IS TO FIRST HIT 'ENTER- 
ONCE OR TWICE, THAT SEEMED TO CLEAR THAT PROBLEM UP. 

AND NOW ABOUT THE EDITOR/ASSEMBLER, IT HAS 13 COMMANDS i 
"A" ASSEMBLF,, WITH 5 OPTIONS, 'NO' (no object code), 'NL'(no listing), 

•NS'jno symbol table), 'LP' (list on the printer), AND 
'WE' (wait after errors). 
"I INSERT, USED TO INSERT EITHER NEW LINES OR LINES BETWEEN OLD 

ONES, (commands reference lines can be specified with a 
starting line ft and an increment for each subsequent 
line, this program has 'AUTO' line numbering.) 
-R" REPLACE, TO WRITE OVER OR REPLACE A LINE. 

"D" DELETE, DELETES LINES. 

"N" NUMBER, H ^S LIKE A 'RENUMBER' FUNCTION, CHANGES ALL LINE NUMBERS 

SO THAT THEY BEGIN WITH A CERTAIN NUMBER & AN INCREMENT. 
-E" EDIT, A LINE EDITOR WITH SUBCOMMANDS VERY MUCH LIKE THOSE IN 

LEVEL II. A BIG ASSET IN CHANGING A LINE. 
M F" FIND, SEARCHES THE TEXT BUFFER FOR A SPECIFIED STRING OF 16 

CHARACTERS OR LESS. USEFUL TO FIND WHERE YOU USED A LABEL 
OR CONSTANT OR WHATEVER. THE STRING IS REMEMBERED UNTIL 
YOU GIVE IT A NEW ONE, SO REPEATED CALLS WITH JUST 'F' 
WILL FIND THE NEXT OCCURANCE OF THE STRING. 
"P" PRINT, MUCH THE SAME AS 'LIST' . HAS 3 OPTIONS. 'P' BY ITSELF, 

WILL LIST 15 LINES. (one screens worth) 
"L" 10 AD, THIS ADDS (repeat adds) A SOURCE FILE TO THE TEXT BUFFER 

FROM CASSETTE USING A FILENAME, (up to 6 characters) 
"W" WRITE, OPPASITE OF •LOAD', SAVES THE TEXT BUFFER ON CASSETTE. 

NOTEWORTHY FEATURE i ALL TAPES CREATED BY THE EDT/ASMBLR 
ARE MADE AT LEVEL II' s RATE OF 500 BAUD, EVEN IF YOU'RE 
WORKING ON A LEVEL I TRS-60. 
"H" HARDCOPY, LIKE 'P* ONLY OUTPUT GOES TO THE LINE-PRINTER. 

-T" TYPE, SAME AS 'H* EXCEPT NO LINE NUMBERS ARE PRINTED. 

"B" BASIC, TO RETURN TO "BASIC. 

THE EDT/ASMBLR PROGRAM TAPE IS A 500 BAUD TAPE A CAN BE LOADED AS IS 
ON A LEVEL II MACHINE, OR WITH THE HELP OF A 'SYSTEM' PROGRAM TAPE 
PROVIDED FOR LEVEL I USERS. (250 baud A loads in a few seconds) WHEN 
LOADED, YOU GIVE THE STARTING ADDRESS k HIT 'ENTER*. THIS ACCORDING TO 
THE MANUAL WILL REWARD YOU WITH THE MESSAGE: -TRS-80 EDITOR/ASSEMBLER 
1.0" AND A PROMPT THAT IS AN ASTERISK NOT A •>• . SURPRISE I GOT 
VERSION 1.1 NOT 1.0 t 

THE ASSEMBLER RECOGNIZES THE STANDARD ZILOG MNEMONICS. MACRO'S tt 

CONDITIONAL ASSEMBLY ARE NOT SUPPORTED, BUT, OPERAND EXPRESSIONS MAY 
CONTAIN '+• AND •-• ARITMETIC OPERATORS, ALONG WITH V ( logical and). 
PLUS '<• (shift) OPERATORS. PARENTHESES NOT BEING ALLOWED. CONSTANTS CAN 
BE HEX, OCTAL, OR DECIMAL. LABELS CAN BE UP TO 6 CHARACTERS LONG. THE 
STANDARD ASSEMBLER FORMAT (line #, label, op-code, operand, comments) IS 
HELPED ALONG BY USING THE RIGHT ARROW KEY AS A TRUE HORIZONTAL TAB TO 
THE NEXT 8 CHARCTER FIELD (there are 8 fields on a line). TWO THINGS ARE 
THE SAME AS IN LEVEL II, shift •«• WILL HALT COMPUTER ACTIVITY AND HOLD 
IT UNTIL ANOTHER KEY IS PRESSED, shift BACK-ARROW WILL DELETE ALL OF THE 
CURRENT LINE BEING TYPED IN. UP-ARROW WILL PRINT THE PRECEDING LINE OF 
TEXT, AND DOWN-ARROW PRINTS THE NEXT LINE. 

ASSEMBLY IS DONE COMPLETELY IN-MEMOHY FROM THE TEXT BUFFER AND AS A 
RESULT CANNOT BE CLASSIFIED AS A "X (number) PASS ASSEMBLER". THE OBJECT 



OODE (given Kith the output listing by the way) IS SAVED IN MEMORY TOR 
OUTPUT TO CASSETTE, AND LATER EXECUTION. THE PROGRAM WILL NOT IMMEDIATLY 
EXECUTE. THE MANUAL STATES THAT ABOUT ?K IS LEFT OVER IN A 16K MACHINE 
FOR TEXT BUFFER USAGE. IF YOU NEED TO ASSEMBLE LARGER PROGRAMS THEN THEY 
CAN BE DONE IN SECTIONS, AND LATER EACH SECTION CAN BE LOADED IN ORDER 
AND EXECUTED AS A WHOLE. 

ERROR MESSAGES ARE VERY GOOD, FOR EXAMPLE i "line number too large*, 
"string not found", "branch out of range", "Multiply defined symbol". 
NO SHORT FORM (2 charcter) ERROR MESSAGES HERE I 

PSEUDO-OPS SUPPORTED ARE: "ORG", "EQU", "DEFL", "DEFB", "DEFW", 
••DEFS'V'DEFM", "END". THERE ARE TWO ASSEMBLER COMMANDS THAT CAN BE A 
FART OF THE TEXT, "*LIST ON", AND "*LIST OFF" TO CONTROL LISTING OUTPUT. 

THE MANUAL FOR THE EDT/ASMBLR IS FAIRLY COMPLETE, THOUGH IT DOES NOT 
TRY TO TEACH YOU ASSEMBLY LANGUAGE PROGRAMMING SKILLS. THE SAMPLE 
PROGRAM INCLUDED TN THE MANUAL WHICH PAINTS TOE SCREEN WHITE, HOLDS IT 4 
THEN RETURNS TO BASIC. THIS IS VERY FAST t AS SOON AS YOU RELEASE THE 
"ENTER" KEY, THE SCREEN IS WHITE, NEARLY INSTANTANEOUSLY SO. 

INCLUDED IN THE MANUAL ARE FIVE PAGES ON COMMANDS AND SUCH, ABOUT 6 
PAGES ON USE 4 INTRODUCTION TO ASSEMBLER FORMATS 4 Z-80 INTERNAL DETAILS 
THEN COMES THE BULK OF THE MANUAL t THE Z-80 INSTRUCTION SET. WHAT YOU 
ARE GIVEN IS ALMOST EXACTLY LIKE WHAT YOU CAN FIND IN THE ZILOG ASSEMBLY 
LANGUAGE PROGRAMMING MANUAL. EACH INSTRUCTION IS DETAILED AND EXPLAINED, 
ALONG WITH HOW IT AFFECTS OTHER REGISTERS, FLAGS, ETC. THE Z-80's HARD- 
WARE IS EXPLAINED, ITS ADDRESSING MODES AND TIMING ARE TOO. NEXT YOU GET 
BOTO A NUMERIC 4 AN ALPHANUMERIC LIST OF EACH INSTRUCTION (something I 
had'nt seen before). ALSO YOU GET A MEMORY MAP FOR LEVEL II (reallly not 
needed if you have level II since it's manual has one), AND 2 PAGES THAT 
DETAIL THE ENTRY POINTS FOR SUBROUTINES IN BOTH LEVEL'S I 4 II . 

OVERALL I'D RATE IT AS A VERY GOOD 'STANDARD' ASSEMBLER. IT HAS NO 
FANCY THINGS LIKE MACRO'S BUT THEN THOSE ARE NOT ESSENTIAL 4 THERE ARE 
MANY GOOD THINGS THAT CAN BE DONE WITH THIS ASSEMBLER. IT'S CERTAINLY 
BETTER THAN A LOT OF ASSEMBLERS. 

THE FIRST THING I DID WITH THE EDT/ASMBLR WAS TO DUMP LEVEL I, SINCE 
I HAS IN A MUKKX 10 G£T LEVEL II IN WHICH ARRIVED AT THE SAME TIME AS MY 
EDT/ASMBLR. LEVEL II IS EASY TO DUMP, JUST USE THE BUILT-IN 'PEEK' FUNC- 
TION. IDEAS FOR FUTURE PROGRAMS INCLUDE AN ADD-ON ROUTINE FOR LEVEL II 
THAT WILL RENUMBER THE SOURCE LINES (basic lines that is ), AND SOME 
VECTOR-LINE GRAPHIC SUBROUTINES. PLEASE CONTACT ME IF YOU WOULD LIKE TO 
WORK WITH ME AT DEVELOPING SUCH THINGS OR MAYBE YOU HAVE SOMETHING WE 
CAN DO TOGETHER. 

LEVEL II MAKES MY TRS-80 SEEM LIKE A NEW COMPUTER, COMPARED TO THE 
CAPABILITIES OF LEVEL I. LEVEL I WAS NICE TO WORK WITH AS A BEGINNER, 
AND I WOULD NOT HESITATE TO RECOMMEND IT FOR SOMEONE ELSE WHO WAS ALSO 
JUST STARTING, BUT JUST TRY DOING SOME OF THOSE REALLY FAR OUT 4 HI 
LEVEL PROJECTS 4 IT'S THEN THAT THE LEVEL I LIMITATIONS SHOW UP. 

I REALLY HATE TO SAY TOO MUCH ABOUT LEVEL II, SINCE I'M SURE THAT 
SOMEONE WITH MORE EXPERIENCE AT ARTICLE WRITING 4 SUCH (DR. JACK 
CRENSHAW for example), WOULD DO A FAR BETTER JOB AT EXPLAINING IT's VIR- 
TUES AND ABILITIES. 

THE EXPANSION INTERFACE CONNECTS TO THE TRS-80 VIA A RIBBON CABLE 
THAT IS BOTH STURDY AND KINDA SHORT, (this impairs the keyboard mobility 
somewhat). IT COMES WITH YET ANOTHER BLACK POWER PACK TO PLUG IN, BUT AT 
LEAST IT ALLOWSONE TO HIDE BOTH OF THE PACKS INSIDE THE INTERFACE'S 
CASE. A JUMPER CABLE CONNECTS THE CASSETTE OUTPUT FROM THE KEYBOARD TO 
THE INTE RFACE. THE TWO CASSETTES ARE THEN HOOKED UP TO THE INTERFACE. 

AFTER PEERING INSIDE IT'S CASE IT APPEARS THAT ONE WILL BE ABLE TO 
JUST ADD 8 MORE MEMORY CHIPS (or 16), WITHOUT CHANGING ANY JUMPERS 
AROUND OR FIDDLING WITH THOSE DIP SWITCHES INSIDE THE CASE (keyboard). I 
THINK LEVEL II DETERMINES MEMORY SIZE BY SOFTWARE MEANS NOT HARDWARE, 
DOES ANYONE KNOW YET FOR SURE ? 

I'VE SEEN VERSION 1.0 OF THE DISK OPERATING SYSTEM, IT'S A NICE PACK- 
AGE ! THE BAD THING ABOUT IT IS THAT IT TAKES APBOX. 10K OF MEMORY TO ^ ^ 
RUN THE DOS, LEAVING ABOUT 5.4K LEFT FOR PROGRAMMING IN A 16K MACHINE. 13 



JUST TRY AND GUESS WHAT I'LL BE GETTING TO PLUG INTO MY EXP. INTERF. 1 
HOWEVER THE DOS SHOULD REALLY BE A WINNER, WHAT WITH PASSWORDS ON FILES, 
PILE CONCATENATION, THE ABILITY TO RE-ASSIGN DEVICES (line printer out* 
put to the video screen), ALSO I THINK THE UTILITIES INCLUDED A DEBUGGER 
SORT OF LIKE "T-BUG". 

WITH MORE ft MORE OF US GETTING LEVEL II NOWADAYS, WE SHOULD BE ABLE 
TO CRANK OUT SOME FANTASTIC SOFTWARE. AS A SIDE NOTE ON LEVEL 11*8 SPEED 
BY USING AN INTEGER •TOR-NEXT' LOOP, MY TRS-80 WILL COMPLETE i 
10 FOR I=0T010000 
20 NEXT 
IN ABOUT 12| SECONDS, THIS IS A BIT FASTER THAN THE TIMES GIVEN FOR THE 
-PET" AND "APPLE" IN A RECENT ISSUE OF BYTE MAGAZINE. NOT BAD CONSIDER- 
ING WE HAVE ONLY A 1.771 MHs CLOCK RATE ! 

HOWARD E. FOILES 
USAFSS BOX 18363 
SAN ANTONIO, TX. 78243 

TRAVEL AGENCIES 

If any travel agencies have TRS-80 Computers or programs, 
I would like to get in contact with you. 

Max H. Mitchell, President 

Major Travel, Inc. 

106 Cheselka Street 

Fayetteville , North Carolina 

28306 

Telephone: (919) 485-4182 

(919) 485-7147 

Telex 579363 

LL LiA J 
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IDEA ASSEMBLERS P. 0. BOX 14M Gatetaera. Illinois 61401 

INTRODUCES THOUGHTWARE! 

Designed To Make The Operation Of Your Personal Computer Easier And More Fun 

ft THE TRS-80 POKE GRAPHICS WORKSHEET 

Supports quick, easy implementation of graphics in machine/assembly language or in fullest 

utilization of Level II Basic. - 1 pad of 26 sheets $3.95 

- 4 pads of 26 sheen $6.95 

ft THE TRS-80 GRAPHICS WORKSHEET 

Those desiring to continue the implementation of the SET and RESET commands are urged 

to order. - 2 pads of 26 sheets $3.95 

-4 pads of 25 sheets $6.95 

ftTHE LINE MINDER 

Tired of the ruler slipping off the Newsletter as you type in programs? 

Set of 1-1x9 & 1-1x6 for 98e! 

ft OUR VARIABLE MINDER (It's The Handiest Darn Thing!) 

See at a glance the availability of all 962 variables in Level II . . . and their type assign- 
ments. Allows full implementation of up to 3848 for long-penciled programmers. 

1 pad of 26 sheets $3.95 

2 pads of 26 sheets $6.95 

ft AND OUR SELECTION OF NOTE PADS 

Keep them handy to jot down those spur of the moment thoughts. Package of 6 pads 
^^ (300 sheets, all same title) ; $3.95 

^J YOUR CHOICE OF TITLES BELOW. DONT WRITE IT OFF - 

(1) Bubble Babble, (2) Bus Lines. (3) Dandy Notes. (4) TRS-80 Owners Don't Baudot 

DTo Anyone, (5) Floppy Copy. (6) Padded Bits. (7) Under Disk -uss ion. (8) Tandy Say - 
"Don't Make ASCII Of Self." 

MllnoM RMlMnti Add 5% Sato* Tax 




Reference List 




Software On Cassettes 
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Robert Elliott Purser, Box 466, El Dorado, CA 95623 



***NOTEi ALL PAYROLL PACKAGES (both LEVEL I and LEVEL II ) require a 
change In the "Initialization and Summary" program. 
Line 21 #1 should readi 21/00 A(12)»A(12)+I 



Dear Bob, 

I have been reading your newsletter for 4 issues now, and I find 
them very vaulable. I wasn't one of the people who bought the 
Level I and then waited for Level II. I ordered the 16K Level II 
as soon as allowed, and have been enjoying it for over a month now. 
So much of the problems mentioned in the newsletter don't apply 
to me. For example, we Level II users have no problem with the 
"double size" characters (32 ch. per line). We just PRINT CHR$(23) 
after we clear the screen each time. But according to the original 
sales brochures, the Level I was supposed to be software selectable 
for 32 ch/line, too. What happened!?! 

I have convinced my school to buy two of the Level I, 4K units, and so 
now Ihave both levels available. Gads, what do you level I users 
do about editing? It is so easy in TJevel II and so tedious in L I. 

Forgive me my naivete, but being compM-ely non. electronics oriented, 
I am going to ask some possibly dunb questions. First, there has 
been a lot going around about the ground loops in the audio recorder. 
And everybody offers suggestions about special adapter cords, boxes, 
and the like. Yet nobody has suggested what to me is the most 
obvious. Why not take the back off the recorder and cut the ground 
wire to the ear jack? Wouldn't it work? If not, will somebody tell 
me why not? 4 C 



And in the last issue of the newsletter, you offered some 16K chips. 
Since I have the 16K unit, I can't take advantage of that yet. But 
if I eventually get the expansion box I will be quite interested. 
My question is: do I need any special knowledge or tools? Or is it 
a case of simply unscrewing the box and pushing in the chips. Does 
this have any bad side-effects? For example, when you PRINT MH4, do 
you get the new correct amount? 

In issue number 3, Win Jones reported his TRS-80 stolen. Has he 
recovered it? Are thefts a problem? Have others been stolen? 

Someone with 8 line printer(not screen printer) could do a lot of 
us a favor anc offer hard copy to those of us without a printer. 
After we finaily get a program running, it is uaually quite different 
from anything we originally had on paper. We would like a printed 
copy but certainly don't want to take the time to write it all down 
again. I would be willing to pay a moninal fee to get a hardcopy 
of many of my programs. And the person offering this service would 
pick up a lot of programs for himself that way, too. 

What ever happened to the TRS-80 Owners Newsletter that Radio Shack 
promised would be sent to owners. Did it die on the vine? 

How about someone compiling a lit of places that buy software? There 
seem to be more and more outfits comming out with purchasing plans 
and royalties for the TRS-80 software. It would be nice to have a 
list of them, along with their rates. Sure would help some of us 
who want to seel some of our original programs, but don't know where 
the best place is. 

There seems to be quite some cosment about cheap tapes working fine. 
Maybe on the Level I, but not on Level II; the faster baud rate seems 
to be extra critical of even the smallest dropouts. Lukily, we 
Level II users have the CLOAD? command so we can check the tape 
before elindnateing the resident program. 

I especially enjoyed the "Snoopy" picture that Michael Yarbrough 
submitted in your latest issue. I found it a real bore to type in, 
but well worth the time when completed! I would like to see more 
graphics like these, so I can put them all in one program, then loop 
through each one. 

I would like to contact anyone who is writing CAI programs in math 
for 7th graders or above. I am writing some for various areas 
like Number Theory, Trigonometry, Geometry, Logic, Probability, 
Topology, and others; I am always looking for new approaches and 
new topics. 

John R. Olaen Jr. Sincerely, 

P.O. Box 181 

Newberg, Oregon 97132 
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TRS-80 MACHINE LANGUAGE GAMES - Faster than basic 
and instant keyboard response (no more 'ENTER')* 
Two games on one cassette: CHASE and DEFLECTION. 
Send $7.00 to: R.D. CRENSHAW, 320 BRITTANY RD, 
FT ORD, CA., 93%1 
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5 Din R<iee> 

18 as :PRINTTAB<28> "PILLBOX 2" 

13 PRINT :PRINT PRINT : PRINT : INPUT"MHRT IS THE FIRST NAME OF PLAYER #1 ";A* 

16 PRINT: INPUT" PLftVER 82 ";B$ 

17 CLS 

20 Z-4:REN LETHHL DISTANCE 

38 REM GUN tl DISTANCE FROM CENTER 

31 D-RND<45)+8 

48 REN GUN tl HEIGHT 

41 E-42-RND<25> 

38 REM GUN #2 DISTANCE FROM CENTER 

31 F*RND(45)+72 

68 REM GUN 82 HEIGHT 

61 G-42-RND(23> 

78 SET<D,E>:SET<F,G> 



188 REM DRAM PILLBOXES 

118 FOR 1—2 TO 2 

128 SET(D+I*E):SET<D+LE*1> 

138 SET<F+LQ).SET<F+LG+1> 

148 NEXTI 

288 REM SET HEIGHT OF MOUNTAIN 

218 M*RND<28>+8 

212 IF N > E H-E-2 

214 IF M > G M-G-2 

228 REM— -DRAM TERRAIN 

238 FOR 1-8 TO D«3 

248 FOR J-€*2 TO 47 

238 SET (I,J):NEXTJ:NEXTI 

268 FOR I-F-5 TO 127 

278 FOR J-G+2 TO 47 LEVEL II 

288 SET<I.J>:NEXTJ:NEXTI 

388 REM DRAM MOUNTAIN 

318 K-<H-<E*2>>A63-<D+6>> 

328 L*€+2 

338 FOR I-D+* TO 63 

348 L-L+K 

358 FOR J-L TO 47 

368 SET(LJ>:NEXTJ: NEXTI 

378 K-<G*2-H>AF-6-64> 

388 L-M 

398 FOR 1-64 TO F-6 

488 L«L+K 

418 FOR J-L TO 47 

428 SET<LJ):NEXTJ:NEXTI 

423 PRINT898&A$;"'S PILLBOX "; 

426 PRINT8937,B$;"'S PILLBOX "; 

488 REM CHOOSE GUN TO FIRE FIRST 

498 P-RHX2) 

388 PRINT88," 

383 K-8:L-64:IF P-2 K«32:L«168 

318 PRINT8JC "BARREL ANGLE MUZZLE VELOCITY"; 

328 PRINTBL. ; : INPUTA 

338 IF<A < 8>0R(A > 98) G0T0528 

548 PRINT8L+16, J : INPUTV 

350 IF (V<188>0R<V>2888) GOT0548 

378 V-V/18 

688 REM COMPUTE SINE 4 COSINE OF ANGLE 

618 A-A/57. 2950 

CAOk HMfW»Bifl 

638 S=fl-H/6+H*ft*fl/12e-H*»*t^V5040 

668 R»l. 3788-fl 

688 C-ft-H/6+H*ft*fl/12e-H*4+tft^584e 

798 Q-V»C:R-V*S 1*7 



719 K*>:L-E:IF P-2 8— 8:ICT:L-C 






715 L-47-L 






719 REM COMPUTE 4 PLOT TRflJECTORY 


728 T-.85 






729 8-8 






738 T"T>.1 






748 XHC*w*T*2.3 






745 IF<X <8>0R<X M27) 0010888 






758 Y-47-<R-l«*T>*T-L 






755 IF V < 8 00T0738 






756 IF V > 47 00TO188 






7S8 B-B+2:fl<B>-X:FCB+i)-V 
778 IF POINTOCY) Q0T0888 


898 
988 




FOR 1-1 TO 188 


788 SET<X,Y> 


918 


SET<X4ftMD<ll>-& V-RND(18» 


798 80T0738 


915 


RESET(X+RM><5>-3, Y-RMD<5>+2> 


868 IFP-l GOTO 838 


928 


MEXTI 


818 IF RBSCD-XXZ O0TO988 


938 


FOR I«8 TO 4888:NEXTI 


828 P-100T0858 


948 


OOTOIO 


838 IF flBS(F-X><Z 00T0988 






848 P-2 

PtAm MM 1 ■■Mgg TDA TTrTPPV»» i 






843 Ran BmHK iWUfcLIWCr 






858 FORI-8 TO 8 STEP 2 






868 RESET<fl(I>,fl<I+l>> 






878 MEXTI 






875 PRINTS^" 




■ 


878 PRINT864, ■ 




■ 


877 PRINT812&" 




■ 
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Would You Believe Itl 



SPACE Wflfi 

-With Pull Graphics 
-That Runs On Any TRS-80 



FOR ONLY 



*<f.«?5 



'Space War I and II both fit in 4k and include: 
Warp angina maneuvers Viewing screen 
Impulse angina maneuvers Damage reports 
Photon torpedoes Scanners 

Phaser s Self das true t 

And Much Moral 

Spaoa War II, for level II TRS-80s,has such additional 
features as semi-real time action. 

Sand check or money order for $9.95 to: 
Conn an Enterprises 
350 Rye Beach Ave. 
Rye, Mew York 10580 



Specify Space War I or II 

N.Y.S. residents add sales tax 



TRS80 

* presents ** 

RECIPES (programs) on CASSETTE 
TAPES for your hungry TRS 80— with 
lots of graphics!! 

All programs written to run on your TRS 
80 — Level I (4k or more RAM). 

Free COOKBOOK (catalog) of cassettes 
with other recipes (programs) included. 

CASSETTE 8010: UFO. Battle* 
Checkbook • Draw Poker • Pile High • 
Poker Dice • Snoopy (graphic). 

CASSETTE 8020: Monthly Minder • Slot 
Machine • Dart Throw • Venus Touch- 
down • Number Guess • Tic Tac Toe. 

$ 9.50 per cassette, $18.00 for both. 

Send Check or Money Order to: 

THE COMPUTER PANTRY 

2224-C Old Middlefield Way 

Mountain View, CA 94043 

(415)964-4175 

The Pantry pays postage and tax!! Prompt Delivery 
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